home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 19 / madtrb40.zip / COPYFILE.200 < prev    next >
Text File  |  1985-09-08  |  2KB  |  43 lines
  1. {**********************************************************************}
  2. {*                  C O P Y F I L E . 2 0 0                           *}
  3. {*                                                                    *}
  4. {*      Separate this file out into an Include COPYFILE.200           *}
  5. {**********************************************************************}
  6.  
  7. {----------------------------------------------------------------------}
  8. { C o p y F i l e : Copy input file to output file                     }
  9. {----------------------------------------------------------------------}
  10. Procedure  CopyFile(Input_File,Output_File :ParmString;
  11.                                var Return_Code :integer);
  12.    Const
  13.       RecordSize = 128 ;
  14.       RecordNum  = 200 ;
  15.    Type
  16.       HeapBuffer = array[1..RecordSize,1..RecordNum] of byte;
  17.    Var
  18.       FileIn,FileOut   : File;
  19.       HeapPtr          : ^HeapBuffer;
  20.       RecordCount      :integer;
  21.    Begin
  22.       Assign(FileIn,Input_File);
  23.       Assign(FileOut,Output_File);
  24.       {$I-} Reset(FileIn); {$I+}
  25.       Return_Code := IOresult;
  26.       If (Return_Code = 0) then        { If input File exists then     }
  27.          Begin                         { create the output file        }
  28.          Writeln(' Creating ',Output_File );
  29.          ReWrite(FileOut);
  30.          New(HeapPtr);
  31.  
  32.          Repeat
  33.             Blockread(FileIn,HeapPtr^,RecordNum,RecordCount);
  34.             Blockwrite(FileOut,HeapPtr^,RecordCount);
  35.          Until RecordCount = 0;
  36.  
  37.          Dispose(HeapPtr);
  38.          End;
  39.  
  40.       Close(FileIn);Close(FileOut);
  41.    End; { CopyFile }
  42. {......................................................................}
  43.